home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23.lha / YAM2.3 / Rexx / UpdateAddresses.yam < prev    next >
Text File  |  2000-04-19  |  977b  |  30 lines
  1. /* UpdateAddresses.yam - Updates YAM's address book                         */
  2. /* $VER: UpdateAddresses.yam 1.0 (12.03.00) © 2000 by M.Beck <mbeck@yam.ch> */
  3. /* Updates new addresses for existing people in the address book, based on  */
  4. /* the selected messages. Requires YAM 2.0 or later.                        */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8. changes = 0
  9. GETSELECTED STEM sm.
  10. DO i = 0 TO sm.NUM.COUNT-1
  11.    MailInfo STEM mi. sm.NUM.i
  12.    PARSE VAR mi.FROM name' <'newmail'>'
  13.    'AddrFind STEM found. "'name'" NAMEONLY'
  14.    IF (RC = 0) & (name > '') THEN DO
  15.       al = found.ALIAS.0
  16.       'AddrInfo STEM entry. "'al'"'
  17.       oldmail = entry.EMAIL
  18.       IF newmail ~= oldmail THEN DO
  19.          'Request "'name' moved:\n\nOld e-mail: 'oldmail'\nNew e-mail: 'newmail'" "_Update|_Keep old"'
  20.          IF RESULT THEN DO
  21.             'AddrGoto "'al'"'
  22.             'AddrEdit "'al'" EMAIL "'newmail'"'
  23.             changes = 1
  24.          END
  25.       END
  26.    END
  27. END
  28. IF changes THEN AddrSave
  29. EXIT
  30.